home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Developer Essentials / MPW Interfaces & Libraries / PInterfaces / Devices.p < prev    next >
Encoding:
Text File  |  1992-01-29  |  3.8 KB  |  151 lines  |  [TEXT/MPS ]
  1.  
  2. {
  3. Created: Sunday, September 15, 1991 at 10:15 PM
  4.  Devices.p
  5.  Pascal Interface to the Macintosh Libraries
  6.  
  7.   Copyright Apple Computer, Inc.  1985-1991
  8.   All rights reserved
  9. }
  10.  
  11.  
  12. {$IFC UNDEFINED UsingIncludes}
  13. {$SETC UsingIncludes := 0}
  14. {$ENDC}
  15.  
  16. {$IFC NOT UsingIncludes}
  17.  UNIT Devices;
  18.  INTERFACE
  19. {$ENDC}
  20.  
  21. {$IFC UNDEFINED UsingDevices}
  22. {$SETC UsingDevices := 1}
  23.  
  24. {$I+}
  25. {$SETC DevicesIncludes := UsingIncludes}
  26. {$SETC UsingIncludes := 1}
  27. {$IFC UNDEFINED UsingOSUtils}
  28. {$I $$Shell(PInterfaces)OSUtils.p}
  29. {$ENDC}
  30. {$IFC UNDEFINED UsingFiles}
  31. {$I $$Shell(PInterfaces)Files.p}
  32. {$ENDC}
  33. {$IFC UNDEFINED UsingQuickdraw}
  34. {$I $$Shell(PInterfaces)Quickdraw.p}
  35. {$ENDC}
  36. {$SETC UsingIncludes := DevicesIncludes}
  37.  
  38. CONST
  39. newSelMsg = 12;
  40. fillListMsg = 13;
  41. getSelMsg = 14;
  42. selectMsg = 15;
  43. deselectMsg = 16;
  44. terminateMsg = 17;
  45. buttonMsg = 19;
  46. chooserID = 1;
  47. initDev = 0;        {Time for cdev to initialize itself}
  48. hitDev = 1;            {Hit on one of my items}
  49. closeDev = 2;        {Close yourself}
  50. nulDev = 3;            {Null event}
  51. updateDev = 4;        {Update event}
  52. activDev = 5;        {Activate event}
  53. deactivDev = 6;        {Deactivate event}
  54. keyEvtDev = 7;        {Key down/auto key}
  55. macDev = 8;            {Decide whether or not to show up}
  56. undoDev = 9;
  57. cutDev = 10;
  58. copyDev = 11;
  59. pasteDev = 12;
  60. clearDev = 13;
  61. cursorDev = 14;
  62. cdevGenErr = -1;    {General error; gray cdev w/o alert}
  63. cdevMemErr = 0;        {Memory shortfall; alert user please}
  64. cdevResErr = 1;        {Couldn't get a needed resource; alert}
  65. cdevUnset = 3;        { cdevValue is initialized to this}
  66.  
  67. { Monitors control panel messages }
  68. initMsg = 1;        {initialization}
  69. okMsg = 2;            {user clicked OK button}
  70. cancelMsg = 3;        {user clicked Cancel button}
  71. hitMsg = 4;            {user clicked control in Options dialog}
  72. nulMsg = 5;            {periodic event}
  73. updateMsg = 6;        {update event}
  74. activateMsg = 7;    {not used}
  75. deactivateMsg = 8;    {not used}
  76. keyEvtMsg = 9;        {keyboard event}
  77. superMsg = 10;        {show superuser controls}
  78. normalMsg = 11;        {show only normal controls}
  79. startupMsg = 12;    {code has been loaded}
  80.  
  81. TYPE
  82. DCtlPtr = ^DCtlEntry;
  83. DCtlHandle = ^DCtlPtr;
  84. DCtlEntry = RECORD
  85.  dCtlDriver: Ptr;
  86.  dCtlFlags: INTEGER;
  87.  dCtlQHdr: QHdr;
  88.  dCtlPosition: LONGINT;
  89.  dCtlStorage: Handle;
  90.  dCtlRefNum: INTEGER;
  91.  dCtlCurTicks: LONGINT;
  92.  dCtlWindow: WindowPtr;
  93.  dCtlDelay: INTEGER;
  94.  dCtlEMask: INTEGER;
  95.  dCtlMenu: INTEGER;
  96.  END;
  97.  
  98. AuxDCEPtr = ^AuxDCE;
  99. AuxDCEHandle = ^AuxDCEPtr;
  100. AuxDCE = PACKED RECORD
  101.  dCtlDriver: Ptr;
  102.  dCtlFlags: INTEGER;
  103.  dCtlQHdr: QHdr;
  104.  dCtlPosition: LONGINT;
  105.  dCtlStorage: Handle;
  106.  dCtlRefNum: INTEGER;
  107.  dCtlCurTicks: LONGINT;
  108.  dCtlWindow: GrafPtr;
  109.  dCtlDelay: INTEGER;
  110.  dCtlEMask: INTEGER;
  111.  dCtlMenu: INTEGER;
  112.  dCtlSlot: Byte;
  113.  dCtlSlotId: Byte;
  114.  dCtlDevBase: LONGINT;
  115.  dCtlOwner: Ptr;
  116.  dCtlExtDev: Byte;
  117.  fillByte: Byte;
  118.  END;
  119.  
  120.  
  121. FUNCTION GetDCtlEntry(refNum: INTEGER): DCtlHandle;
  122. FUNCTION SetChooserAlert(f: BOOLEAN): BOOLEAN;
  123. FUNCTION OpenDriver(name: Str255;VAR drvrRefNum: INTEGER): OSErr;
  124. FUNCTION CloseDriver(refNum: INTEGER): OSErr;
  125. FUNCTION Control(refNum: INTEGER;csCode: INTEGER;csParamPtr: Ptr): OSErr;
  126. FUNCTION Status(refNum: INTEGER;csCode: INTEGER;csParamPtr: Ptr): OSErr;
  127. FUNCTION KillIO(refNum: INTEGER): OSErr;
  128. FUNCTION PBControl(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  129. FUNCTION PBControlSync(paramBlock: ParmBlkPtr): OSErr;
  130.  INLINE $205F,$A004,$3E80;
  131. FUNCTION PBControlAsync(paramBlock: ParmBlkPtr): OSErr;
  132.  INLINE $205F,$A404,$3E80;
  133. FUNCTION PBStatus(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  134. FUNCTION PBStatusSync(paramBlock: ParmBlkPtr): OSErr;
  135.  INLINE $205F,$A005,$3E80;
  136. FUNCTION PBStatusAsync(paramBlock: ParmBlkPtr): OSErr;
  137.  INLINE $205F,$A405,$3E80;
  138. FUNCTION PBKillIO(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
  139. FUNCTION PBKillIOSync(paramBlock: ParmBlkPtr): OSErr;
  140.  INLINE $205F,$A006,$3E80;
  141. FUNCTION PBKillIOAsync(paramBlock: ParmBlkPtr): OSErr;
  142.  INLINE $205F,$A406,$3E80;
  143.  
  144.  
  145. {$ENDC} { UsingDevices }
  146.  
  147. {$IFC NOT UsingIncludes}
  148.  END.
  149. {$ENDC}
  150.  
  151.